8bitfiles.net/archives/archives.tar/archives/commodore-scene-files/Coverdisks/CDU/V3D09.D64/banks and memory

Commodore BASIC | 2019-04-13 | 1.6 KB | 34 lines

10 POKE53280,5:POKE53281,11:PRINT"[147]","[157][157][205]EMORY [211]ELECTION [208]ROGRAM
11 [153]" (null)RITTEN BY MID$ASON ASCINCH    (LEN) LENSTR$(null)CLOSE1990
12 PRINT"[155] [213]SE '$' PREFIX FOR HEXADECIMAL NUMBERS
13 [153]"SYS VALNTER START LOCATION OF",," SCREEN MEMORY",,," :OPEN1024CMDCMDCMDCMD";
14 [159]1,0:[132]1,A$:[160]1:[153]:SM[178][197](A$):[139][200](A$,1)[179][177]"$"[167]17
15 A$[178][202](A$,2):[139]A$[178]""[167]10
16 [129]H[178]1[164][195](A$):V[178][198]([202](A$,H,1))[171]48:V[178]V[170]128[172](V[177]144):SM[178]SM[172]16[170]V[170](V[177]9)[172]7:[130]
17 [139]SM[177]64512[176](SM[179]3072[175]SM[179][177]1024)[167]10
18 [139]SM[173]1024[178][181](SM[173]1024)[167]20
19 [153]" DEF** (null)ALUE MUST BE DIVISIBLE BY 1024 **":[129]T[178]1[164]1500:[130]:[137]10
20 [153]"SYS VALNTER START LOCATION OF CHARACTER"," INFORMATION (OR BITMAP DATA)
21 PRINT" :[159]";:A$="     ":IFSM<16384THENA$="4096 "
22 IFSM<49152ANDSM>32767THENA$="36864"
23 PRINTA$"[157][157][157][157][157]";:OPEN1,0:INPUT#1,A$:CLOSE1:PRINT:CM=VAL(A$):IFLEFT$(A$,1)<>"$"THEN26
24 A$=MID$(A$,2):IFA$=""THEN10
25 FORH=1TOLEN(A$):V=ASC(MID$(A$,H,1))-48:V=V+128*(V>144):CM=CM*16+V+(V>9)*7:NEXT
26 BC=INT(CM/16384):BS=INT(SM/16384):IFBC=BSTHEN28
27 PRINT" [150]** [205]UST BE IN SAME BANK **":FORT=1TO1500:NEXT:GOTO10
28 IFCM/2048=INT(CM/2048)THEN30
29 PRINT" [150]** [214]ALUE MUST BE DIVISIBLE BY 2048 **":FORT=1TO1500:NEXT:GOTO10
30 PRINT"[147]","[157][157][205]EMORY [211]ELECTION [208]ROGRAM
31 [153]" (null)RITTEN BY MID$ASON ASCINCH    (LEN) LENSTR$(null)CLOSE1990
32 B$=MID$("[218]ERO [207]NE  [212]WO  [212]HREE",BS*5+1,5):R$="([213][196][199]S)
33 [139]CM[178]4096[176]CM[178]6144[176]CM[178]36864[176]CM[178]38912[167]R$[178]"((null)(null)(null) IMAGE)
34 VR=(SM-BS*16384)/64+(CM-BC*16384)/1024:PG=SM/256:PT=1016+SM
35 DD$="[208][197][197][203](56576)[193][206][196]252":IFBS<3THENDD$="("+DD$+")[207][210]"+MID$(STR$(3-BS),2)
36 PRINT"[158] [211]ELECTED [194]ANK:   [159]"B$,," [158][211]CREEN [205]EMORY:  [159]"SM
37 PRINT" [158][195]HARACTER [201]NFO: [159]"CM;R$:PRINT"[155] [208][207][203][197] 56578, [208][197][197][203](56578)[207][210]3"
38 PRINT" [208][207][203][197] 56576, "DD$:PRINT" [208][207][203][197] 53272,"VR,,," [208][207][203][197] 648,"PG
39 PRINT"[158] [211]PRITE [208]OINTERS:[159]"PT"[157]-"MID$(STR$(PT+7),2):POKE56295,10:C=62:A=0
40 POKE2023,C:A=A+1:IFA=6THENA=0:C=252-C
41 GETA$:IFA$=""THEN40
42 RUN